unit HighScoreEntry;

interface

type
 THighScoreEntry = class
  private
   Name: String;
   Score: Integer;
   DifficultLevel: Integer;
  public
   Constructor Create(Name: String; Score, DifficultLevel: Integer);
   function GetName: String;
   function GetScore: integer;
   function GetDifficultLevel: Integer;
 end;

implementation

function THighScoreEntry.GetDifficultLevel: Integer;
begin
 Result := DifficultLevel;
end;

function THighScoreEntry.GetName: string;
begin
 Result := Name;
end;

function THighScoreEntry.GetScore: integer;
begin
 Result := Score;
end;

constructor THighScoreEntry.Create(Name: String; Score, DifficultLevel: Integer);
begin
 Self.Name := Name;
 Self.Score := Score;
 Self.DifficultLevel := DifficultLevel;
end;


end.
